#!/usr/bin/perl

use strict;
use warnings;
use CGI;

# Alle VARs in der globalen Hash-Referenz $main
my $main = {
        CGI => new CGI,
        eingabe => '',     # Wert vom Eingabefeld
        mesg => '',        # Hinweise für den Anwender
};

print "Content-Type: text/html; Charset=UTF-8\n\n";
print out();

exit;
######################################## Funktionen #######################
# Parameter Kontrolle und dann die Ausgabe
sub out{
        if(param()){
                control();      
        }
        else{
                browse();
        }
        return form();
}

# Keine Parameter
sub browse{
        $main->{mesg} = 'Bitte was eingeben';
}

# Parameter
sub control{
        if(param('klick') || param('eingabe')){
                $main->{eingabe} = param('eingabe');
                $main->{mesg} = "Es wurde was eingegeben ($main->{eingabe}) oder geklickt";
                
                # hier kommt der Code 
                # zum Eintragen in die DB
        }
        else{ 
                $main->{mesg} = 'Unbekannter Parameter';
        }
}

# Formular erzeugen
sub form{
        return qq(
                <p>Mesg: $main->{mesg}</p>
                <form action="$ENV{SCRIPT_NAME}">
                        <input name="eingabe" value="$main->{eingabe}">
                        <input type="submit" name="klick">
                </form>
                <p>
                        <a href="$ENV{SCRIPT_NAME}">Seite neu Laden ohne Parameter</a>
                </p>
        );
}


# Delegate CGI::param Method
sub param{ 
        return $main->{CGI}->param(@_);
}